Acala

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://AUSD/LDOT 706,317.8 2,912.39 266,101.5 1,412,636 5,837.45 642,046.1 706,317.79 100
lp://DOT/LCDOT 4,576,486.6 84,992.41 1,379,092.8 4,565,649 84,775.28 1,400,414.9 10,837.34 1.5
lp://AUSD/LCDOT 2,401,109.5 78,175.99 1,266,148.5 2,395,848 77,975.82 1,313,052.8 5,261.62 0.7
lp://ACA/AUSD 2,838,652.6 68,727.40 1,253,316.4 2,838,478 68,746.82 1,310,160.5 174.56 0

Karura

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://KBTC/AUSD -1,105,212.36 -51.13 -3,753.37 NA NA NA NA NA
lp://KINT/AUSD -1,188,397.49 -1,379.54 -14,923.07 NA NA NA NA NA
lp://PHA/AUSD -945,565.52 -128.41 -3,334.71 NA NA NA NA NA
lp://AUSD/KINT 1,168,700.19 -852.21 -14,228.66 23,074.38 2,821.99 32,993.03 1,145,625.81 NA
lp://AUSD/PHA 933,324.43 -142.53 -2,985.90 28,817.79 646.92 50,983.25 904,506.64 NA
lp://AUSD/KBTC 1,045,184.52 -360.18 -1,794.98 560,470.28 8,057.95 89,668.72 484,714.24 NA
lp://TAI/taiKSM 0.00 0.00 0.00 6,473.94 16.53 5,055.44 6,473.94 NA
lp://KAR/KSM 1,036,375.10 1,012.93 205,708.81 1,041,888.35 710.36 206,727.35 5,513.25 NA
lp://AUSD/LKSM 533,999.04 59.88 103,326.61 536,329.01 60.15 121,672.49 2,329.97 NA
lp://KAR/AUSD 481,660.15 993.30 115,548.05 482,719.68 690.64 159,548.90 1,059.54 NA
lp://KSM/LKSM 174,410.04 186.63 47,265.23 175,332.43 186.75 47,665.38 922.40 NA
lp://KAR/LKSM 744,694.85 132.66 51,262.01 744,970.83 132.53 55,403.89 275.97 NA
lp://AUSD/BNC 73,359.79 204.57 20,435.58 73,544.21 204.57 27,481.19 184.42 NA
lp://KSM/ARIS 132.43 16.58 1,221.96 264.86 84.92 5,202.36 132.43 NA
lp://AUSD/KSM 636,566.86 2,040.04 431,300.58 636,686.66 2,040.04 434,727.54 119.81 NA
lp://AUSD/QTZ 30,403.80 349.38 5,678.31 30,512.46 1,795.13 13,204.54 108.66 NA
lp://KAR/QTZ 23,562.96 354.69 4,253.00 23,629.59 2,025.15 8,683.52 66.63 NA
lp://AUSD/RMRK 13,043.92 900.03 10,008.71 13,023.92 927.57 10,349.89 20.00 NA
lp://KSM/RMRK 54,874.97 89.40 43,866.05 54,886.92 89.40 44,308.58 11.95 NA
lp://AUSD/CSM 30,253.71 1,094.29 10,714.66 30,257.31 1,479.34 21,925.95 3.59 NA
---
title: "Acala / Karura Pool Stats"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    social: menu
    source_code: embed
---

```{css custom1, echo=FALSE}
.dataTables_scrollBody {
    max-height: 100% !important;
}
```

```{r global, include=FALSE}

library(knitr)
knitr::opts_chunk$set(
  message = FALSE,
  warning = FALSE,
  comment = "#>"
)

library(kableExtra)
library(formattable)
library(lubridate)
library(flexdashboard)
library(DT)
library(subscanr)
library(ghql)
x <- GraphqlClient$new()

# Helper function to concat
`%+%` <- function(a, b) paste0(a, b)

# library(reticulate)

```

```{r tokens, cache = TRUE, include=FALSE}

pools_a <- getPoolStats_acala('acala')
pools_a[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_a_dex <- getPoolStats_acala_dex('acala') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_a_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

both_a <- merge(pools_a[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_a_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_a[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_a[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_a[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]



pools_k <- getPoolStats_acala('karura')
pools_k[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

# FOR DEX must use dailyTradeVolumeUSD instead of tradeVolumeUSD
pools_k_dex <- getPoolStats_acala_dex('karura') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_k_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_k[, .(id, token0.name, token1.name)]

both_k <- merge(pools_k[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_k_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_k[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_k[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_k[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]

```

# Acala {.tabset}

Row
----

```{r acala1}

knitr::kable(both_a, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```


# Karura {.tabset}

Row
----

```{r karura1}

knitr::kable(both_k, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```